Skylark_Female Class Reference

#include <skylarks_all.h>

Inheritance diagram for Skylark_Female:

Public Member Functions
	Skylark_Female (int x, int y, double size, int age, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual void	ReInit (int x, int y, double size, int age, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual void	BeginStep (void)
	BeingStep behaviour - must be implemented in descendent classes. More...
virtual void	Step (void)
	Step behaviour - must be implemented in descendent classes. More...
virtual void	EndStep (void)
	EndStep behaviour - must be implemented in descendent classes. More...
void	EstablishTerritory ()
int	Supply_NestTime ()
Skylark_Clutch *	SupplyMyClutch ()
int	Supply_BreedingAttempts ()
int	Supply_BreedingSuccess ()
void	ResetBreedingSuccess ()
void	OnSetMyClutch (Skylark_Clutch *p_C)
void	OnEggsHatch ()
void	OnClutchDeath ()
void	OnBroodDeath ()
void	OnBreedingSuccess ()
void	OnStopFeedingChicks ()
void	OnMateDying ()
void	OnMateHomeless ()
void	OnMaleNeverComesBack (Skylark_Male *AMale)
void	OnBreedSuccess ()
void	SensibleCopy ()
Public Member Functions inherited from Skylark_Adult
	Skylark_Adult (int x, int y, double size, int age, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual	~Skylark_Adult ()
virtual void	CopyMyself (int a_sktype)
Public Member Functions inherited from Skylark_Base
	Skylark_Base (int x, int y, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual void	ReInit (int x, int y, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual double	On_FoodSupply (double)
void	AddStriglingMort (int lifestage)
virtual int	WhatState ()
bool	InSquare (rectangle R)
Public Member Functions inherited from TAnimal
unsigned	SupplyFarmOwnerRef ()
AnimalPosition	SupplyPosition ()
APoint	SupplyPoint ()
int	SupplyPolygonRef ()
int	Supply_m_Location_x ()
int	Supply_m_Location_y ()
virtual void	KillThis ()
virtual void	CopyMyself ()
void	SetX (int a_x)
void	SetY (int a_y)
	TAnimal (int x, int y, Landscape *L)
virtual void	ReinitialiseObject (int x, int y, Landscape *L)
	Used to re-use an object - must be implemented in descendent classes. More...
virtual void	Dying ()
void	CheckManagement (void)
void	CheckManagementXY (int x, int y)
Public Member Functions inherited from TALMaSSObject
int	GetCurrentStateNo ()
	Returns the current state number. More...
void	SetCurrentStateNo (int a_num)
	Sets the current state number. More...
bool	GetStepDone ()
	Returns the step done indicator flag. More...
void	SetStepDone (bool a_bool)
	Sets the step done indicator flag. More...
virtual void	ReinitialiseObject ()
	Used to re-use an object - must be implemented in descendent classes. More...
	TALMaSSObject ()
	The constructor for TALMaSSObject. More...
virtual	~TALMaSSObject ()
	The destructor for TALMaSSObject. More...
void	OnArrayBoundsError ()
	Used for debugging only, tests basic object properties. More...

Public Attributes
Skylark_Male *	MyMate
Public Attributes inherited from Skylark_Adult
bool	Paired
Public Attributes inherited from Skylark_Base
double	m_pesticide_accumulation
double	m_pcide_conc
TTypesOfSkState	m_CurrentSkState
int	Age
double	m_Size
int	m_Born_x
int	m_Born_y
int	m_MyHome
	The vegetation type where the skylark was born. More...
SkTerritories *	m_OurTerritories
Skylark_Population_Manager *	m_OurPopulationManager

Protected Member Functions
int	st_Flocking ()
int	st_Floating ()
bool	st_Arriving ()
bool	st_Immigrating ()
int	st_Emigrating ()
int	st_TempLeavingArea ()
int	st_Finding_Territory ()
void	st_Dying ()
int	st_CaringForYoung ()
int	st_BuildingUpResources ()
TTypesOfSkState	st_MakingNest ()
int	st_PreparingForBreeding ()
int	st_GivingUpTerritory ()
TTypesOfSkState	st_Laying ()
int	st_StartingNewBrood ()
int	st_EggHatching ()
int	st_Incubating ()
int	st_StoppingBreeding ()
double	GetFood (int time)
int	CalculateEggNumber ()
int	CalcFoodTime (double target)
int	GetMigrationMortality ()
double	CheckForFields ()
void	FeedYoung ()
virtual bool	OnFarmEvent (FarmToDo event)
virtual void	PesticideResponse ()
skSpiralResult	Spiral (int x, int y, int radius)
skSpiralResult	Spiral2 (int x, int y, int radius)
Protected Member Functions inherited from Skylark_Adult
virtual double	RemoveEM (double food)
double	GetVegHindrance (int PolyRef)
double	GetWeatherHindrance ()
bool	GetBadWeather ()
	Extreme weather conditions check. More...
Protected Member Functions inherited from Skylark_Base
bool	DailyMortality (int mort)
Protected Member Functions inherited from TAnimal
void	CorrectWrapRound ()
	Corrects wrap around co-ordinate problems. More...

Protected Attributes
Skylark_Clutch *	MyClutch
int	m_Counter1
int	m_NestTime
bool	NestLoc
double	Resources
int	EggCounter
int	m_BreedingAttempts
int	m_BreedingSuccess
int	m_EggNumber
bool	m_pesticide_sprayed_die
int	m_toowet
double	m_MinFemaleAcceptScore
Protected Attributes inherited from Skylark_Adult
int	GoodWeather
bool	BSuccess
double	MyExtractEff
int	m_pesticide_affected
skTerritory_struct	MyTerritory
vector< APoint > *	m_aTerrlist
Protected Attributes inherited from TAnimal
int	m_Location_x
int	m_Location_y
Landscape *	m_OurLandscape
Protected Attributes inherited from TALMaSSObject
int	m_CurrentStateNo
	The basic state number for all objects - '-1' indicates death. More...
bool	m_StepDone
	Indicates whether the iterative step code is done for this timestep. More...

Constructor & Destructor Documentation

Skylark_Female()

Skylark_Female::Skylark_Female	(	int	x,
		int	y,
		double	size,
		int	age,
		SkTerritories *	Terrs,
		Landscape *	L,
		Skylark_Population_Manager *	SPM,
		int	bx,
		int	by,
		int	mh
	)

                                                              : Skylark_Adult(x, y, size, age, Terrs, L, SPM, bx, by, mh) {
    MyMate = NULL;
    MyClutch = NULL;
    ResetBreedingSuccess();
    m_BreedingAttempts = 0;
    m_MinFemaleAcceptScore = 0;
}

References m_BreedingAttempts, m_MinFemaleAcceptScore, MyClutch, MyMate, and ResetBreedingSuccess().

Member Function Documentation

BeginStep()

void Skylark_Female::BeginStep ( void  )

virtual

BeingStep behaviour - must be implemented in descendent classes.

Reimplemented from TAnimal.

                               {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( m_CurrentSkState == toss_Destroy ) return;
  CheckManagement();
  if (m_MinFemaleAcceptScore<0.0) m_MinFemaleAcceptScore = 0.0;
  switch ( m_CurrentSkState ) {
    case toss_FFloating: // Floating
      switch ( st_Floating() ) {
        case 2:
            m_CurrentSkState = toss_FFlocking;
            break;
        case 3:
          m_CurrentSkState = toss_FTempLeavingArea; // -> temp.leave
          break;
        case 1:
          m_CurrentSkState = toss_FFindingTerritory; // -> find terr.
        break;
        case 0:
        break;
      }
    m_StepDone = true;
    break;
    case toss_FCaringForYoung: // CaringForYoung
      switch ( st_CaringForYoung() ) {
        case 2: //StopBreeding
          m_CurrentSkState = toss_StoppingBreeding;
          break;
        case 1:
          m_CurrentSkState = toss_StartingNewBrood;
          break;
        default:
            break;
      }
      m_StepDone = true;
    break;
    default:
      /* char errornum[20]; sprintf(errornum, "%d", m_CurrentSkState );
      g_land->Warn("Skylark_Female::BeginStep(): Unknown state: ", errornum); exit(0); */
    break;
  }
}

References TAnimal::CheckManagement(), Skylark_Base::m_CurrentSkState, m_MinFemaleAcceptScore, TALMaSSObject::m_StepDone, st_CaringForYoung(), st_Floating(), toss_Destroy, toss_FCaringForYoung, toss_FFindingTerritory, toss_FFloating, toss_FFlocking, toss_FTempLeavingArea, toss_StartingNewBrood, and toss_StoppingBreeding.

CalcFoodTime()

int Skylark_Female::CalcFoodTime ( double  target )

protected

{
  if ( MyMate == NULL ) {
    g_msg->Warn( WARN_BUG, "Skylark_Female::CalcFoodTime(): No Mate!", "" );
    exit( 1 );
  }
 
 
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // Must calcuate how much time it takes to get 'target' food
  double FoodGathered = 0.0;
  double available;
  int FoodTime = 0; // How much time used
  int used = 0;
  // Starting with the best sources first, use time to get food
  // The male ought to have sorted the table already (or yesterday)
  while ( ( FoodGathered < target ) && ( used < MyMate->SupplyNoHabitatRefs() ) ) {
    available = MyMate->m_HabitatTable_Size[ used ] * MyMate->m_InsectTable[ used ];
    // calcualte for, weather and extraction rate
    available *= MyExtractEff;
    if ( available < ( target - FoodGathered ) ) {
      FoodGathered += available;
      //used++;
      // Calc time used
      FoodTime += MyMate->m_HabitatTable_Size[ used++ ]; // assume 1 min per m2
    } else {
      // Enough Food here to reach target
      // foodpermin = available/area * ExtractionEff * VegHindrance
      // mins = (target-FoodGathered)/FoodperMin
      double FoodPerMin = available / MyMate->m_HabitatTable_Size[ used ];
      FoodTime += ( int )floor( 0.5 + ( target - FoodGathered ) / FoodPerMin );
      break;
    }
  }
  return FoodTime;
}

References g_msg, Skylark_Male::m_HabitatTable_Size, Skylark_Male::m_InsectTable, Skylark_Adult::MyExtractEff, MyMate, MapErrorMsg::Warn(), and WARN_BUG.

Referenced by st_Incubating().

CalculateEggNumber()

int Skylark_Female::CalculateEggNumber ( )

protected

                                       {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // Data from PO/AP study at Kal
  int eggs;
  int chance;
  switch ( m_BreedingAttempts ) {
    case 1:
      chance = random( 160 );
      if ( chance < 9 ) eggs = 2; else if ( chance < 37 + 9 ) eggs = 3; else if ( chance < 99 + 37 + 9 ) eggs = 4; else
        eggs = 5;
    break;
    default:
      chance = random( 125 );
      if ( chance < 29 ) eggs = 3; else if ( chance < 29 + 80 ) eggs = 4; else
        eggs = 5;
    break;
  }
  if ( eggs < 1 ) eggs = 1;
  return eggs;
}

References m_BreedingAttempts, and random().

Referenced by st_Laying().

CheckForFields()

double Skylark_Female::CheckForFields ( )

protected

                                      {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
 
  // Checks each 1m in the territory and returns the proportion of field<4cm
  // Note only arable fields are returned as field - permanent pasture is not
  int TallFieldVeg = 0;
  for ( int xx = MyTerritory.x; xx < MyTerritory.x + MyTerritory.size; xx++ ) {
    for ( int yy = MyTerritory.y; yy < MyTerritory.y + MyTerritory.size; yy++ ) {
      int Cx = xx;
      int Cy = yy;
      m_OurLandscape->CorrectCoords( Cx, Cy );
      int PolyRef = m_OurLandscape->SupplyPolyRef( Cx, Cy );
      if ( ( m_OurLandscape->SupplyVegHeight( PolyRef ) > 50.0 )
           && ( ( m_OurLandscape->SupplyElementType( PolyRef ) == tole_Field )
           || ( m_OurLandscape->SupplyElementType( PolyRef ) == tole_UnsprayedFieldMargin ) ) )
             TallFieldVeg++;
    }
  }
  return TallFieldVeg / double( MyTerritory.size * MyTerritory.size );
}

References Landscape::CorrectCoords(), TAnimal::m_OurLandscape, Skylark_Adult::MyTerritory, skTerritory_struct::size, Landscape::SupplyElementType(), Landscape::SupplyPolyRef(), Landscape::SupplyVegHeight(), tole_Field, tole_UnsprayedFieldMargin, skTerritory_struct::x, and skTerritory_struct::y.

EndStep()

void Skylark_Female::EndStep ( void  )

virtual

EndStep behaviour - must be implemented in descendent classes.

Reimplemented from TAnimal.

                             {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // Need to find out if it is poisoned
#ifdef __PESTICIDE_RA
  PesticideResponse();
#endif
}

References PesticideResponse().

EstablishTerritory()

void Skylark_Female::EstablishTerritory

(

)

                                        {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  MyMate->OnPairing( this );
  Paired = true;
  MyTerritory = MyMate->Supply_Territory();
  Resources = 0;
  // Move 31-01-2007 to Immigrating m_BreedingAttempts = 0;
  m_OurTerritories->FemaleOccupy( MyTerritory.ref, this );
  m_Location_x = ( ( MyTerritory.size / 2 ) + MyTerritory.x + 5 ) % m_OurPopulationManager->SimW; // next to male
  m_Location_y = ( ( MyTerritory.size / 2 ) + MyTerritory.y ) % m_OurPopulationManager->SimH;
  BSuccess = false; // reset the breeding success flag
}

References Skylark_Adult::BSuccess, SkTerritories::FemaleOccupy(), TAnimal::m_Location_x, TAnimal::m_Location_y, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, MyMate, Skylark_Adult::MyTerritory, Skylark_Male::OnPairing(), Skylark_Adult::Paired, skTerritory_struct::ref, Resources, Population_Manager::SimH, Population_Manager::SimW, skTerritory_struct::size, Skylark_Male::Supply_Territory(), skTerritory_struct::x, and skTerritory_struct::y.

Referenced by Skylark_Male::OnReHouse(), and st_Finding_Territory().

FeedYoung()

void Skylark_Female::FeedYoung ( )

protected

Can only get food in daylight - dawn & dusk. Must keep them warm if the weather is bad - the quick version below catagorizes this into good or bad weather

                               {
#ifdef __CJTDebug_5
    if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    double RainToday = m_OurLandscape->SupplyRain();
    if (RainToday>MaxFeedRain) return; // No feeding today
    double TempToday = m_OurLandscape->SupplyTemp();
    int food_time = m_OurLandscape->SupplyDaylength( ) - 120;
    int BrSize = MyMate->SupplyBroodSize();
    m_NestTime = ( 24 * 60 - food_time ); //add night time
    int FeedingProbs[ 16 ];
    double ChickFood[ 16 ];
#ifdef __PESTICIDE_RA_CHICK
    double ChickPoison[ 16 ];
#endif
    double spare;
    double resources_all = GetFood( food_time /*, pcide*/ ); // kcal insects
    // remove metabolic requirements
    double resources = RemoveEM( resources_all );
    int HungryChicks = BrSize;
    if ( resources > 0 ) {
        // Zero the feeding probabilities
        for ( int i = 0; i < HungryChicks; i++ ) {
            FeedingProbs[ i ] = 0;
            ChickFood[ i ] = 0;
#ifdef __PESTICIDE_RA_CHICK
            ChickPoison[ i ] = 0;
#endif
        }
        // if the chicks are 1-4 days old then she must warm them with energy
        // From Mertens (1972)
        // M = 0.0719*power(brood_weight,0.613)*(BroodTemp-AmbientTemp); // Brood temp = 35 double broodweight=0;
        int BroodWeight = 0;
        for ( int i = 0; i < HungryChicks; i++ ) {
            // Add up brood weight
            int weight = ( int )floor( MyMate->SupplyBroodWeight( i ) + 0.5 );
            BroodWeight += weight;
            // While we are at it we might as well create the FeedinbProbs array too
            for ( int j = i; j < HungryChicks; j++ ) FeedingProbs[ j ] += ( int )floor( 0.5 + weight );
        }
        if ( MyMate->SupplyBroodAge( 0 ) < 6 ) {
            resources -= pow( BroodWeight, 0.613 ) * 0.0719 * double( 35 - TempToday );
        }
        // Now give the food to the chicks
        // The chance that a chick get a portion is proportional to their size
        resources /= FoodTripsPerDay; // Split into 30 portions (food trips per day)
#ifdef __PESTICIDE_RA_CHICK
        double pcide_remain = resources * m_pcide_conc;
#endif
        while ( ( resources > 0.01 ) && ( HungryChicks > 0 ) )
        {
            for ( int portion = 0; portion < FoodTripsPerDay; portion++ ) { // For each portion
                int choose = random( BroodWeight );
                for ( int i = 0; i < BrSize; i++ ) {
                    if ( choose < FeedingProbs[ i ] ) {
                        ChickFood[ i ] += resources; // store the food for that chick
#ifdef __PESTICIDE_RA_CHICK
                        ChickPoison[ i ] += pcide_remain;
#endif
                        break;
                    }
                }
            }
            // Now give the food to the chicks
            // Better do this than feed each a portion at a time, it is more efficient
            // and stops problems with growth between portions
            spare = 0;
            for ( int i = 0; i < BrSize; i++ ) {
#ifdef __PESTICIDE_RA_CHICK
                double extra = MyMate->OnFoodMessage( i, ChickFood[ i ] , ChickPoison[i] );
#else
                double extra = MyMate->OnFoodMessage( i, ChickFood[ i ] );
#endif
                if ( extra > 0 ) // chick must be full
                {
                    FeedingProbs[ i ] = -1; // no chance of food
                    HungryChicks--;
                    spare += extra;
                }
            }
            resources = spare / FoodTripsPerDay;
        }
    }
}

References FoodTripsPerDay, GetFood(), m_NestTime, TAnimal::m_OurLandscape, Skylark_Base::m_pcide_conc, MaxFeedRain, MyMate, Skylark_Male::OnFoodMessage(), random(), Skylark_Adult::RemoveEM(), Skylark_Male::SupplyBroodAge(), Skylark_Male::SupplyBroodSize(), Skylark_Male::SupplyBroodWeight(), Landscape::SupplyDaylength(), Landscape::SupplyRain(), and Landscape::SupplyTemp().

Referenced by st_CaringForYoung(), and st_GivingUpTerritory().

GetFood()

double Skylark_Female::GetFood ( int  time )

protected

                                          {
  // returns insects in g dry weight
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // Extract insects available from each habitat in the male's table
  // for as long as she spends searching
  double food = 0;
  int index = 0;
#ifdef __PESTICIDE_RA
  m_pcide = 0.0;
#endif
  double fd;
  while ( time > 0 ) {
#ifdef __CJTDebug_4
    if ( index > 249 )
      OnArrayBoundsError();
#endif
    int area = MyMate->m_HabitatTable_Size[ index ];
    if ( time > area ) {
      time -= area;
      // Food+= area*WeatherHindrance*ExtractionEfficiency*Insects per m2
      fd =  area* MyExtractEff * MyMate->m_InsectTable[ index ];
      food += fd;
#ifdef __PESTICIDE_RA
      // m_pcide has total mg collected
      m_pcide += MyMate->m_PConcTable[ index ] * fd * KcalPerGInsect_kg_inv; // Food needs converting from kcal to kg
      //m_pcide += 53.0 * fd * KcalPerGInsect_kg_inv; // Food needs converting from kcal to kg
#endif
      index++;
      if ( index == MyMate->SupplyNoHabitatRefs() ) time = 0; // Nowhere left to look
    } else {
      // Food+=
      // minutes left*WeatherHindrance*ExtractionEfficiency*Insects per m2
      fd =  time * MyExtractEff * MyMate->m_InsectTable[ index ];
      food += fd;
#ifdef __PESTICIDE_RA
      m_pcide += MyMate->m_PConcTable[ index ] * fd * KcalPerGInsect_kg_inv; // Food needs converting from kcal to kg
      //m_pcide += 53.0 * fd * KcalPerGInsect_kg_inv; // Food needs converting from kcal to kg
#endif
      time = 0;
    }
  }
  return food;
}

References KcalPerGInsect_kg_inv, Skylark_Male::m_HabitatTable_Size, Skylark_Male::m_InsectTable, Skylark_Adult::MyExtractEff, MyMate, TALMaSSObject::OnArrayBoundsError(), and Skylark_Male::SupplyNoHabitatRefs().

Referenced by FeedYoung(), and st_PreparingForBreeding().

GetMigrationMortality()

int Skylark_Female::GetMigrationMortality ( )

protected

                                          {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  Age++; // Get one year older (if you live)
  if ( Age == 1 ) return JuvenileReturnMort;
  return m_OurPopulationManager->SupplyF_Mig_Mort();
}

References Skylark_Base::Age, JuvenileReturnMort, Skylark_Base::m_OurPopulationManager, and Skylark_Population_Manager::SupplyF_Mig_Mort().

Referenced by st_Immigrating().

OnBreedingSuccess()

void Skylark_Female::OnBreedingSuccess

(

)

                                       {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  BSuccess = true;
}

References Skylark_Adult::BSuccess.

Referenced by Skylark_Male::OnPreFledgelingMature(), and Skylark_Male::st_ScaringOffChicks().

OnBreedSuccess()

void Skylark_Female::OnBreedSuccess ( )

inline

{ m_BreedingSuccess++; }

Referenced by Skylark_Male::OnAddPreFledgeling().

OnBroodDeath()

void Skylark_Female::OnBroodDeath

(

)

                                  {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  if ( Paired ) // if !Paired then ignore them, must have deserted
  {
    // Start a new brood if not already done so naturally
    if ( !MyClutch ) {
      m_Counter1 = 5;
      m_CurrentSkState = toss_StartingNewBrood;
    }
  }
}

References m_Counter1, Skylark_Base::m_CurrentSkState, MyClutch, Skylark_Adult::Paired, and toss_StartingNewBrood.

Referenced by Skylark_Male::OnBroodDeath().

OnClutchDeath()

void Skylark_Female::OnClutchDeath

(

)

                                   {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  if ( Paired ) // if !Paired then ignore the message, must have deserted
  {
#ifdef __CJTDebug_7
    if ( !MyClutch ) {
      g_land->Warn( "Skylark_Female::OnClutchDeat - No clutch to die ", NULL );
      exit( 1 );
    }
#endif
    MyClutch = NULL;
    m_Counter1 = 5;
    m_CurrentSkState = toss_StartingNewBrood; //Go to new brood start
  }
}

References g_land, m_Counter1, Skylark_Base::m_CurrentSkState, MyClutch, Skylark_Adult::Paired, toss_StartingNewBrood, and Landscape::Warn().

Referenced by Skylark_Clutch::st_Dying().

OnEggsHatch()

void Skylark_Female::OnEggsHatch

(

)

                                 {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  // This function must not be called until the nestling objects have been
  // created
#ifdef __CJTDebug_7
  if ( !MyClutch ) {
    g_land->Warn( "Skylark_Female::OnEggsHatch - No clutch to hatch ", NULL );
    exit( 1 );
  }
#endif
  MyClutch = NULL;
  m_CurrentSkState = toss_EggHatching; //Go to EggHatching
  //  Tell the male
  MyMate->OnEggHatch();
}

References g_land, Skylark_Base::m_CurrentSkState, MyClutch, MyMate, Skylark_Male::OnEggHatch(), toss_EggHatching, and Landscape::Warn().

Referenced by Skylark_Clutch::st_Hatching().

OnFarmEvent()

bool Skylark_Female::OnFarmEvent ( FarmToDo  event )

protectedvirtual

Reimplemented from TAnimal.

                                               {
  switch ( event ) {
    case sleep_all_day:
    break;
    case autumn_plough:
      // If she is in nest building then the nest is destroyed
      if (( m_CurrentSkState == toss_MakingNest) || (m_CurrentSkState == toss_PreparingForBreeding)) {
        // Make a state change
        m_CurrentSkState = toss_StartingNewBrood;
      }
    break;
    case autumn_harrow:
      // If she is in nest building then the nest is destroyed
      if (( m_CurrentSkState == toss_MakingNest) || (m_CurrentSkState == toss_PreparingForBreeding)) {
        // Make a state change
        m_CurrentSkState = toss_StartingNewBrood;
      }
    break;
    case autumn_roll:
    break;
    case autumn_sow:
      // If she is in nest building then the nest is destroyed
      if (( m_CurrentSkState == toss_MakingNest) || (m_CurrentSkState == toss_PreparingForBreeding)) {
        // Make a state change
        m_CurrentSkState = toss_StartingNewBrood;
      }
    break;
    case winter_plough:
      // If she is in nest building then the nest is destroyed
      if (( m_CurrentSkState == toss_MakingNest) || (m_CurrentSkState == toss_PreparingForBreeding)) {
        // Make a state change
        m_CurrentSkState = toss_StartingNewBrood;
      }
    break;
    case deep_ploughing:
      // If she is in nest building then the nest is destroyed
      if (( m_CurrentSkState == toss_MakingNest) || (m_CurrentSkState == toss_PreparingForBreeding)) {
        // Make a state change
        m_CurrentSkState = toss_StartingNewBrood;
      }
    break;
    case spring_plough:
      // If she is in nest building then the nest is destroyed
      if (( m_CurrentSkState == toss_MakingNest) || (m_CurrentSkState == toss_PreparingForBreeding)) {
        // Make a state change
        m_CurrentSkState = toss_StartingNewBrood;
      }
    break;
    case spring_harrow:
      // If she is in nest building then the nest is destroyed
      if (( m_CurrentSkState == toss_MakingNest) || (m_CurrentSkState == toss_PreparingForBreeding)) {
        // Make a state change
        m_CurrentSkState = toss_StartingNewBrood;
      }
    break;
    case spring_roll:
    break;
    case spring_sow:
      // If she is in nest building then the nest is destroyed
      if (( m_CurrentSkState == toss_MakingNest) || (m_CurrentSkState == toss_PreparingForBreeding)) {
        // Make a state change
        m_CurrentSkState = toss_StartingNewBrood;
      }
    break;
    case fp_npks:
    break;
    case fp_npk:
    break;
    case fp_pk:
    break;
    case fp_liquidNH3:
    break;
    case fp_slurry:
    break;
    case fp_manganesesulphate:
    break;
    case fp_manure:
    break;
    case fp_greenmanure:
    break;
    case fp_sludge:
    break;
    case fa_npk:
    break;
    case fa_pk:
    break;
    case fa_slurry:
    break;
    case fa_ammoniumsulphate:
    break;
    case fa_manure:
    break;
    case fa_greenmanure:
    break;
    case fa_sludge:
    break;
    case herbicide_treat:
    break;
    case growth_regulator:
    break;
    case fungicide_treat:
    break;
    case insecticide_treat:
    case trial_insecticidetreat:
    break;
    case syninsecticide_treat:
      if ( random( 1000 ) < cfg_insecticide_direct_mortF.value() ) {
#ifdef TEST_ISSUE_DEATH_WARRANT
        printf( "Skylark_Female::OnFarmEvent() : %d : %d\n", event, ( int )g_date->Date() );
#endif
        m_CurrentSkState = toss_FDying;
      }
    break;
    case molluscicide:
    break;
    case row_cultivation:
      // If she is in nest building then the nest is destroyed
      if (( m_CurrentSkState == toss_MakingNest) || (m_CurrentSkState == toss_PreparingForBreeding)) {
        // Make a state change
        m_CurrentSkState = toss_StartingNewBrood;
      }
    break;
    case strigling:
      // If she is in nest building then the nest is destroyed
      if ( m_CurrentSkState == toss_MakingNest ) {
        // Make a state change
        m_CurrentSkState = toss_StartingNewBrood;
        AddStriglingMort( 0 );
      }
    break;
    case hilling_up:
    break;
    case water:
    break;
    case swathing:
    break;
    case harvest:
    break;
    case cattle_out:
    case cattle_out_low:
    break;
    case cut_to_hay:
    break;
    case cut_to_silage:
    break;
    case straw_chopping:
    break;
    case hay_turning:
    break;
    case hay_bailing:
    break;
    case stubble_harrowing:
      // If she is in nest building then the nest is destroyed
      if ( m_CurrentSkState == toss_MakingNest ) {
        // Make a state change
        m_CurrentSkState = toss_StartingNewBrood;
      }
    break;
    case autumn_or_spring_plough:
      // If she is in nest building then the nest is destroyed
      if (( m_CurrentSkState == toss_MakingNest) || (m_CurrentSkState == toss_PreparingForBreeding)) {
        // Make a state change
        m_CurrentSkState = toss_StartingNewBrood;
      }
    break;
    case burn_straw_stubble:
    break;
    case mow:
    break;
    case cut_weeds:
    break;
    case pigs_out:
#ifndef __NoPigsOutEffect
      if ( Paired ) {
        if ( random( 100 ) < 2 ) // 2%
        {
          // Too much disturbance so give up
          m_CurrentSkState = toss_GivingUpTerritory;
        }
      }
#endif
    break;
    case strigling_sow:
      // If she is in nest building then the nest is destroyed
      if (( m_CurrentSkState == toss_MakingNest) || (m_CurrentSkState == toss_PreparingForBreeding)) {
        // Make a state change
        m_CurrentSkState = toss_StartingNewBrood;
        AddStriglingMort( 0 );
      }
    break;
    case product_treat:
    break;
    case glyphosate:
    break;
    default:
      g_land->Warn( "Skylark_Female::OnFarmEvent(): ""Unknown event type:", m_OurLandscape->EventtypeToString( event ) );
      exit( 1 );
  }
  if ( m_CurrentSkState == toss_FDying ) return true; else
    return false;
}

References Skylark_Base::AddStriglingMort(), autumn_harrow, autumn_or_spring_plough, autumn_plough, autumn_roll, autumn_sow, burn_straw_stubble, cattle_out, cattle_out_low, cfg_insecticide_direct_mortF, cut_to_hay, cut_to_silage, cut_weeds, Calendar::Date(), deep_ploughing, Landscape::EventtypeToString(), fa_ammoniumsulphate, fa_greenmanure, fa_manure, fa_npk, fa_pk, fa_sludge, fa_slurry, fp_greenmanure, fp_liquidNH3, fp_manganesesulphate, fp_manure, fp_npk, fp_npks, fp_pk, fp_sludge, fp_slurry, fungicide_treat, g_date, g_land, glyphosate, growth_regulator, harvest, hay_bailing, hay_turning, herbicide_treat, hilling_up, insecticide_treat, Skylark_Base::m_CurrentSkState, TAnimal::m_OurLandscape, molluscicide, mow, Skylark_Adult::Paired, pigs_out, product_treat, random(), row_cultivation, sleep_all_day, spring_harrow, spring_plough, spring_roll, spring_sow, straw_chopping, strigling, strigling_sow, stubble_harrowing, swathing, syninsecticide_treat, toss_FDying, toss_GivingUpTerritory, toss_MakingNest, toss_PreparingForBreeding, toss_StartingNewBrood, trial_insecticidetreat, CfgInt::value(), Landscape::Warn(), water, and winter_plough.

OnMaleNeverComesBack()

void Skylark_Female::OnMaleNeverComesBack

(

Skylark_Male *

AMale

)

                                                                {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  if ( MyMate == AMale ) {
    MyMate = NULL;
    Paired = false;
    BSuccess = false;
  } //This could cause problems if this function is called late
}

References Skylark_Adult::BSuccess, MyMate, and Skylark_Adult::Paired.

Referenced by Skylark_Male::OnPairing(), and Skylark_Male::st_Immigrating().

OnMateDying()

void Skylark_Female::OnMateDying

(

)

                                 {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  // Assumes that she forgets about any active brood
  MyMate = NULL;
  if ( MyClutch ) {
    MyClutch->OnMumGone();
    MyClutch = 0;
  }
  if ( MyTerritory.ref != -1 ) {
    m_OurTerritories->RemoveFemale( MyTerritory.ref );
    MyTerritory.ref = -1;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1006 );
#endif
  }
  if ( m_OurLandscape->SupplyDayInYear() > g_stopdate ) m_CurrentSkState = toss_FFlocking; else
    m_CurrentSkState = toss_FFloating;
}

References g_stopdate, Skylark_Base::m_CurrentSkState, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, MyClutch, MyMate, Skylark_Adult::MyTerritory, Skylark_Clutch::OnMumGone(), skTerritory_struct::ref, SkTerritories::RemoveFemale(), Landscape::SupplyDayInYear(), toss_FFloating, toss_FFlocking, and Skylark_Population_Manager::WriteSKPOM1().

Referenced by Skylark_Population_Manager::Catastrophe(), and Skylark_Male::st_Dying().

OnMateHomeless()

void Skylark_Female::OnMateHomeless

(

)

                                     {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  if ( MyClutch ) {
    MyClutch->OnMumGone();
    MyClutch = 0;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1007 );
#endif
  }
    MyMate = NULL;
    Paired = false;
    BSuccess = false;
    MyTerritory.ref = -1;
    if ( m_OurLandscape->SupplyDayInYear() > g_stopdate ) m_CurrentSkState = toss_FFlocking; else
    m_CurrentSkState = toss_FFloating;
}

References Skylark_Adult::BSuccess, g_stopdate, Skylark_Base::m_CurrentSkState, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, MyClutch, MyMate, Skylark_Adult::MyTerritory, Skylark_Clutch::OnMumGone(), Skylark_Adult::Paired, skTerritory_struct::ref, Landscape::SupplyDayInYear(), toss_FFloating, toss_FFlocking, and Skylark_Population_Manager::WriteSKPOM1().

Referenced by Skylark_Male::OnReHouse().

OnSetMyClutch()

void Skylark_Female::OnSetMyClutch ( Skylark_Clutch *  p_C )

inline

  {
    MyClutch = p_C;
  }

Referenced by Skylark_Population_Manager::CreateObjects().

OnStopFeedingChicks()

void Skylark_Female::OnStopFeedingChicks

(

)

                                         {
  // Only a problem if she has to be told to stop feeding
  if ( m_CurrentSkState == toss_FCaringForYoung )
    m_CurrentSkState = toss_StartingNewBrood;
}

References Skylark_Base::m_CurrentSkState, toss_FCaringForYoung, and toss_StartingNewBrood.

Referenced by Skylark_Male::OnPreFledgelingMature(), and Skylark_Male::st_ScaringOffChicks().

PesticideResponse()

void Skylark_Female::PesticideResponse ( void  )

protectedvirtual

Reimplemented from Skylark_Base.

                                        {
    if ((m_pesticide_accumulation*1000)/m_Size > cfg_Skylark_female_NOEL.value()) { // * 1000 to go from g to kg
        m_pesticide_affected = 1;
    }
    m_pesticide_accumulation *= cfg_Skylark_female_Biodegredation.value();
}

References cfg_Skylark_female_Biodegredation, cfg_Skylark_female_NOEL, Skylark_Base::m_pesticide_accumulation, Skylark_Adult::m_pesticide_affected, Skylark_Base::m_Size, and CfgFloat::value().

Referenced by EndStep().

ReInit()

void Skylark_Female::ReInit ( int  x, int  y, double  size, int  age, SkTerritories *  Terrs, Landscape *  L, Skylark_Population_Manager *  SPM, int  bx, int  by, int  mh  )

virtual

Reimplemented from Skylark_Adult.

                                                              {
    Skylark_Adult::ReInit(x, y, size, age, Terrs, L, SPM, bx, by, mh);
    MyMate = NULL;
    MyClutch = NULL;
    ResetBreedingSuccess();
    m_BreedingAttempts = 0;
    m_MinFemaleAcceptScore = 0;
}

References m_BreedingAttempts, m_MinFemaleAcceptScore, MyClutch, MyMate, Skylark_Adult::ReInit(), and ResetBreedingSuccess().

ResetBreedingSuccess()

void Skylark_Female::ResetBreedingSuccess

(

)

                                          {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  m_BreedingSuccess=-1;
}

References m_BreedingSuccess.

Referenced by ReInit(), Skylark_Female(), st_Immigrating(), and Skylark_Population_Manager::TheBreedingSuccessProbe().

SensibleCopy()

void Skylark_Female::SensibleCopy

(

)

                                  {
    // This is called if a new bird is made as a copy of another and needs to have some sensible information added
    m_CurrentSkState=toss_FEmigrating;
}

References Skylark_Base::m_CurrentSkState, and toss_FEmigrating.

Referenced by Skylark_Population_Manager::CreateObjects().

Spiral()

skSpiralResult Skylark_Female::Spiral ( int  x, int  y, int  radius  )

protected

Spiral2()

skSpiralResult Skylark_Female::Spiral2 ( int  x, int  y, int  radius  )

protected

st_Arriving()

bool Skylark_Female::st_Arriving ( )

protected

Ensures that the bird is not paired on arrival and checks the weather status. If bad weather then returns initiates a transition to st_TempLeaveArea otherwise to st_FindTerritory.

                                 {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    Paired = false;
    if ( GetBadWeather() ) return false;
    else
    {
        m_Location_y = (int) floor(g_rand_uni()*m_OurLandscape->SupplySimAreaHeight());
        m_Location_x = (int) floor(g_rand_uni()*m_OurLandscape->SupplySimAreaWidth());
        return true; // TransferToState(FindTerritory)
    }
}

References g_rand_uni, Skylark_Adult::GetBadWeather(), TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, Skylark_Adult::Paired, Landscape::SupplySimAreaHeight(), and Landscape::SupplySimAreaWidth().

Referenced by Step().

st_BuildingUpResources()

int Skylark_Female::st_BuildingUpResources ( )

protected

The female forages from her home range each day. On 1st April she will make a transition to preparing for breeding which determines the time needed for egg production and nest building.

                                           {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  int today = m_OurLandscape->SupplyDayInYear();
  if ( today >= g_stopdate  ) {
    return 2; // GiveUpTerritory
  }
  if ( GetBadWeather() ) return 2;
  if ( ( m_OurLandscape->SupplyTemp() > Breed_Temp_Thresh ) )
  {
      double qual = MyMate->Supply_TerritoryQual();
      if ( qual < m_MinFemaleAcceptScore ) {
          // May need to give up territory or might be because the crop has not
          // started growing in which case she will wait until May
          if ( today >= ( May + 14 ) ) return 2; // GiveUpTerritory
      }
      EggCounter = 0;
      if ( today > April ) return 1; // transferToState(PrepareForBreeding)
  }
  return 0; // just wait
}

References April, Breed_Temp_Thresh, EggCounter, g_stopdate, Skylark_Adult::GetBadWeather(), m_MinFemaleAcceptScore, TAnimal::m_OurLandscape, May, MyMate, Skylark_Male::Supply_TerritoryQual(), Landscape::SupplyDayInYear(), and Landscape::SupplyTemp().

Referenced by Step().

st_CaringForYoung()

int Skylark_Female::st_CaringForYoung ( )

protected

Calls Skylark_Female::FeedYoung to get food and give it to the chicks. Once the chicks reach 18 days of age if more breeding is possible then the bird will start a new brood unless it is late in the season or there have been too many breeding attempts in which case she will stop breeding when the chicks are 30 days old. In previous versions there was a bad weather component, but this has been removed since it did not contribute to the POM fit. If future analysis finds a relationship it should be incorporated here.

                                      {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  FeedYoung(); // get food and give it to the young
  int ch_age = MyMate->SupplyBroodAge( 0 );
  if ( ch_age == 18 )
  // Must stop feeding and start to build a nest. She is ready to
  // build nest when the young are 18 days old
  {
    if ( ( m_BreedingAttempts < 4 ) && ( m_OurLandscape->SupplyDayInYear() < g_stopdate ) )
    {
        NestLoc = false; // no nest location now
        return 1; //Start a new brood
    }  else if (ch_age == 30) return 2;
  }
  return 0;
}

References FeedYoung(), g_stopdate, m_BreedingAttempts, TAnimal::m_OurLandscape, MyMate, NestLoc, Skylark_Male::SupplyBroodAge(), and Landscape::SupplyDayInYear().

Referenced by BeginStep().

st_Dying()

void Skylark_Female::st_Dying ( void  )

protected

                              {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( MyMate ) {
    if ( MyMate->MyMate != this ) {
      g_land->Warn( "Skylark_Female::st_Dying - Debug1 ", NULL ); exit( 1 );
    }
    MyMate->OnMateDying();
    MyMate = NULL;
  }
  if ( MyTerritory.ref != -1 ) {
    m_OurTerritories->RemoveFemale( MyTerritory.ref );
    MyTerritory.ref = -1;
  }
  if ( MyClutch ) {
    MyClutch->OnMumGone();
    MyClutch = NULL;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1005 );
#endif
  }
  m_CurrentSkState = toss_Destroy; // will kill it at end of step!
  m_CurrentStateNo = -1;
}

References g_land, Skylark_Base::m_CurrentSkState, TALMaSSObject::m_CurrentStateNo, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, MyClutch, MyMate, Skylark_Male::MyMate, Skylark_Adult::MyTerritory, Skylark_Male::OnMateDying(), Skylark_Clutch::OnMumGone(), skTerritory_struct::ref, SkTerritories::RemoveFemale(), Landscape::SupplyDayInYear(), toss_Destroy, Landscape::Warn(), and Skylark_Population_Manager::WriteSKPOM1().

Referenced by Step().

st_EggHatching()

int Skylark_Female::st_EggHatching ( )

protected

A transition is made to Care for Young.

                                   {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  m_toowet = 0;
  return 1; // TransferToState(CareForYoung)
}

References m_toowet.

Referenced by Step().

st_Emigrating()

int Skylark_Female::st_Emigrating ( )

protected

Is called once a day. This state determines the return to breeding areas based on probabilities that alter with date. Once suitable conditions prevail there will be a transition to st_Immigrating.

                                  {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
#ifdef __PESTICIDE_RA_ADULT
  // If using reset pesticide affect
  m_pesticide_affected = -1;
 #endif
  int today = m_OurLandscape->SupplyDayInYear();
  if ( today >= g_stopdate ) return 0; //don't come back this year
  if ( m_OurLandscape->SupplyTemp() > 0.0 ) GoodWeather++; else
    GoodWeather = 0;
 
  if ( GoodWeather >= 7 ) // 7 days of good weather
  {
    int chance = random( 10000 ); // number between 0-9999
    if ( Age < 1 ) // if first year
    {
      if ( ( chance < 300 ) && ( today >= March + 15 ) ) return 1;
         else if ( today >= April + 15 ) return 1;
    } else {
      if ( ( chance < 7 ) && ( today >= January + 14 ) ) return 1;
         else if ( ( chance < 33 ) && ( today >= February + 14 ) ) return 1;
            else if ( ( chance < 400 ) && ( today >= March + 14 ) ) return 1;
               else if ( ( chance < 1000 ) && ( today >= April + 14 ) )return 1;
                  else if ( today > ( May ) ) return 1;
    }
  }
  return 0; // return value of 0 do nothing, 1 go to immigration
}

References Skylark_Base::Age, April, February, g_stopdate, Skylark_Adult::GoodWeather, January, TAnimal::m_OurLandscape, Skylark_Adult::m_pesticide_affected, March, May, random(), Landscape::SupplyDayInYear(), and Landscape::SupplyTemp().

Referenced by Step().

st_Finding_Territory()

int Skylark_Female::st_Finding_Territory ( )

protected

                                         {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if (GetBadWeather()) return 3;
    double score = 0;
  skTerritory_struct testTerr;
  // First tries to find old mate if breeding was successful
  if ( ( BSuccess == true ) && ( MyMate != NULL ) ) {
    // Check if mate has a territory
    if ( ( MyMate->HaveTerritory == true ) && ( MyMate->Paired == false ) ) {
      testTerr = MyMate->Supply_Territory();
      // **CJT** Changed below to EvaluateHabitatNest 10/05/04
      //score = m_OurTerritories->EvaluateHabitatNest( m_OurTerritories->Supply_terr( testTerr.ref ), true );
      score = testTerr.nqual;
    }
    if (  score > m_MinFemaleAcceptScore ) {
      //Establish the territory
      EstablishTerritory();
      return 1; // TransferToState(BuildUpResources)
    }
  }
  // If old-mate did not have a good territory or was not there
  // then start a search for a good unoccupied territory
  {
    // Male't territory was not good so lie to him and say we did not
    // come back
    if ( MyMate )
      if ( MyMate->Paired == false ) MyMate->OnMateNeverComesBack( this );
    MyMate = NULL; // Forget him he is no good!
    // Sorts through the list of territories until it finds a suitable one
    // will remember the last 'one' until if finds a vacant really good one
    int NoTerrs = m_OurTerritories->SupplyNoTerritories();
    Skylark_Male * A_Male;
    int remember = -1;
    for ( int i = 0; i < NoTerrs; i++ ) {
      A_Male = m_OurTerritories->Supply_Owner( i );
      // Is territory occupied?
      if ( A_Male != NULL ) {
        // Check if a female is already present
        if ( m_OurTerritories->Supply_F_Owner( i ) == NULL ) {
#ifdef __CJTDebug_5
          if ( A_Male->Paired ) {
            g_msg->Warn( WARN_BUG, "Skylark_Female::st_Finding_Territory(): Male already paired!", "" );
            exit( 1 ); // Inconsistency
          }
#endif
          testTerr = A_Male->Supply_Territory();
          /*  *** CJT *** Changed 4/6/2009. Now requires the male to set the value in his m_MyTerritory
          **CJT** Changed below to EvaluateHabitatNest 10/05/04
           score = m_OurTerritories->EvaluateHabitatNest( m_OurTerritories->Supply_terr( testTerr.ref ), true );
          */
          if ( testTerr.nqual >= m_MinFemaleAcceptScore+5 ) {
            //Pair with this one
            //Establish the territory
            MyMate = A_Male;
            EstablishTerritory();
            Paired = true;
            return 1; // TransferToState(BuildUpResources)
          } else if ( testTerr.nqual >= m_MinFemaleAcceptScore ) remember = i;
        }
      }
    }
    if ( remember == -1 ) {
#ifdef FOR_DEMONSTRATION
      m_Location_x = 0;
      m_Location_y = 0;
#endif
      return 2; // TransferToState(Floating);
    } else {
      //Pair with the male remember
      MyMate = m_OurTerritories->Supply_Owner( remember );
      //Establish the territory
      EstablishTerritory();
      return 1; // TransferToState(BuildUpResources)
    }
  }
}

References Skylark_Adult::BSuccess, EstablishTerritory(), g_msg, Skylark_Adult::GetBadWeather(), Skylark_Male::HaveTerritory, TAnimal::m_Location_x, TAnimal::m_Location_y, m_MinFemaleAcceptScore, Skylark_Base::m_OurTerritories, MyMate, skTerritory_struct::nqual, Skylark_Male::OnMateNeverComesBack(), Skylark_Adult::Paired, SkTerritories::Supply_F_Owner(), SkTerritories::Supply_Owner(), Skylark_Male::Supply_Territory(), SkTerritories::SupplyNoTerritories(), MapErrorMsg::Warn(), and WARN_BUG.

Referenced by Step().

st_Floating()

int Skylark_Female::st_Floating ( )

protected

                                {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( GetBadWeather() ) return 3;
  m_Location_x = random( m_OurPopulationManager->SupplySimW() );
  m_Location_y = random( m_OurPopulationManager->SupplySimH() );
  if ( m_OurLandscape->SupplyDayInYear() > g_stopdate ) {
    return 2;
  } else {
#ifdef FOR_DEMONSTRATION
    m_Location_x = 0;
    m_Location_y = 0;
#endif
    return 1; //TransferToState(FindTerritory);
  }
}

References g_stopdate, Skylark_Adult::GetBadWeather(), TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, random(), Landscape::SupplyDayInYear(), Population_Manager::SupplySimH(), and Population_Manager::SupplySimW().

Referenced by BeginStep().

st_Flocking()

int Skylark_Female::st_Flocking ( )

protected

The bird is assumed to move around the area waiting until weather conditions are suitable to begin Emigration, depending upon the time of year. Only arrives here after breeding, so poor conditions will trigger a transition to Emigration. A transition to Emigration will also occur if the bird has not emigrated before October.

                                {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
#ifdef FOR_DEMONSTRATION
  // Removes itinerant dots from the screen, but has no effect on simulation
  m_Location_x = 0;
  m_Location_y = 0;
#endif
 
    if ( m_OurLandscape->SupplyDayInYear() > October ) {
        GoodWeather = 0;
        return 1; //TransferToState(Emigration);
    }
    bool bad=GetBadWeather();
    if ( (bad) && ( m_OurLandscape->SupplyDayInYear() >= September )) return 1; //TransferToState(Emigration);
    return 0; // Carry on
}

References Skylark_Adult::GetBadWeather(), Skylark_Adult::GoodWeather, TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, October, September, and Landscape::SupplyDayInYear().

Referenced by Step().

st_GivingUpTerritory()

int Skylark_Female::st_GivingUpTerritory ( )

protected

                                         {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // If she is incubating give a message to the clutch that she is gone
  if ( MyClutch ) {
    MyClutch->OnMumGone();
    MyClutch = NULL;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1008 );
#endif
  }
  // Will carry on feeding the young whilst they are needing fed
  if ( MyMate->SupplyBroodSize() > 0 ) {
    FeedYoung();
    return 0; // carry on
  } else {
    // No young to look after so leave the territory
    EggCounter = 0;
    NestLoc = false;
    // No longer paired
    Paired = false;
    // Tell the male you are leaving
    MyMate->OnMateLeaving();
    // if no breeding success then forget him
    if ( !BSuccess )
      MyMate = NULL;
    // de-register the territory ownership (if she owns one)
    if ( MyTerritory.ref != -1 ) m_OurTerritories->RemoveFemale( MyTerritory.ref );
    MyTerritory.ref = -1; // No territory
    return 1; // TransferToState(Floating);
  }
}

References Skylark_Adult::BSuccess, EggCounter, FeedYoung(), TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, MyClutch, MyMate, Skylark_Adult::MyTerritory, NestLoc, Skylark_Male::OnMateLeaving(), Skylark_Clutch::OnMumGone(), Skylark_Adult::Paired, skTerritory_struct::ref, SkTerritories::RemoveFemale(), Skylark_Male::SupplyBroodSize(), Landscape::SupplyDayInYear(), and Skylark_Population_Manager::WriteSKPOM1().

Referenced by Step().

st_Immigrating()

bool Skylark_Female::st_Immigrating ( )

protected

An instantaneous state which determines the chanve of migration mortality. If she does die then she has to inform any old mate that she has gone. If he is already paired with another bird then can just forget him. If not dying then breeding success for this year is reset and the bird transitions to st_Arrival.

                                    {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( ( random( 100 ) < GetMigrationMortality() ) || Age > 5 ) {
    if ( MyMate != NULL ) {
      // if she has no mate she don't care
      // Otherwise he receives a bogus on Mate death message
      if ( !MyMate->Paired ) {
        //Not paired so he is told to forget her
        MyMate->OnMateNeverComesBack( this );
      }
      // He is paired so don't need to tell him anything - forget him
      // or have already told him so forget him anyway
      MyMate = NULL;
#ifdef __CJTDebug_8
      if ( MyClutch != NULL )
        int rubbish = 0;
#endif
    }
    return false; // TransfertoState(Die)
  } else {
    ResetBreedingSuccess();
    m_BreedingAttempts = 0;
    m_pesticide_affected = -1; // reset the sprayed flag
    m_MinFemaleAcceptScore = cfg_FemaleMinTerritoryAcceptScore.value();
    return true; // TransferToState(Arrival)
  }
}

References Skylark_Base::Age, cfg_FemaleMinTerritoryAcceptScore, GetMigrationMortality(), m_BreedingAttempts, m_MinFemaleAcceptScore, Skylark_Adult::m_pesticide_affected, MyClutch, MyMate, Skylark_Male::OnMateNeverComesBack(), Skylark_Adult::Paired, random(), ResetBreedingSuccess(), and CfgFloat::value().

Referenced by Step().

st_Incubating()

int Skylark_Female::st_Incubating ( )

protected

Incubation occurs as described in development below. The female spends that time off the nest required to find energy to cover her basal metabolic requirements, plus that energy required to warm the eggs. Incubation continues until the eggs hatch and there is a transition to Care For Young, or the incubation period (MID) is exceeded, at which point the female will Start New Brood. This state can only be left by a call to OnEggHatch being altered on creation of a nestling or to StartNewBrood

                                  {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // Must calculate time needed to feed
  // will ignore time off nest due to disturbance
  m_NestTime = 0;
  if ( --m_Counter1 > 0 )
  {
    // ExtraBroodHeat extra because of heat for eggs
    double calories_needed = m_OurPopulationManager->SupplyEMi();
    int foodtime = CalcFoodTime( calories_needed );
    int Daylength = m_OurLandscape->SupplyDaylength();
    double rain = m_OurLandscape->SupplyRain();
    if ( rain > MaxFeedRain )
    {
        m_toowet++;
    }
    if ( m_toowet > 2 )
    {
      //m_OurPopulationManager->WriteToTest2File( m_OurLandscape->SupplyDayInYear(), 1003 );
      return 3; //TransferToState(StartNewBrood);
    } else
    {
      if ( foodtime > Daylength ) foodtime = Daylength;
      m_NestTime = ( 24 * 60 - foodtime ); //add night time
      return 0; // wait
    }
  }
  //m_OurPopulationManager->WriteToTest2File( m_OurLandscape->SupplyDayInYear(), 1002 );
  return 3; // TransferToState(StartNewBrood);
}

References CalcFoodTime(), m_Counter1, m_NestTime, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, m_toowet, MaxFeedRain, Landscape::SupplyDaylength(), Skylark_Population_Manager::SupplyEMi(), and Landscape::SupplyRain().

Referenced by Step().

st_Laying()

TTypesOfSkState Skylark_Female::st_Laying ( )

protected

                                          {
  if ( MyMate == NULL ) {
    g_msg->Warn( WARN_BUG, "Skylark_Female::st_Laying(): No mate!", "" );
    exit( 1 );
  }
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // Timing called Once each day
  // lays 1 egg per day until the correct number of eggs are laid
  // Counter1 must be set to -1 on first time called
  if ( m_Counter1 == -1 ) {
    // If we have not calculated how many eggs we need do that
    m_Counter1 = CalculateEggNumber();
    m_EggNumber = m_Counter1;
#ifdef __PESTICIDE_RA_ADULT
    // If pesticide affected then breeding is delayed
    if (m_pesticide_affected > -1) {
        if (m_OurLandscape->SupplyPesticideType() == ttop_ReproductiveEffects) {
            if (m_OurLandscape->SupplyDayInYear() - m_pesticide_affected < 10) return toss_PreparingForBreeding;
        }
        else if (m_OurLandscape->SupplyPesticideType() == ttop_eggshellthinning) {
            if (cfg_skylark_pesticide_eggshellreduction_perclutch.value()) {
                if (g_rand_uni() <= cfg_skylark_pesticide_eggshellreduction.value()) m_EggNumber = 0;
            }
            else {
                // This code assumes egg independence
                for (int e = 0; e < m_EggNumber; e++) {
                    if (g_rand_uni() <= cfg_skylark_pesticide_eggshellreduction.value()) m_EggNumber--;
                }
            }
            if (m_EggNumber < 1) {
                m_BreedingAttempts++;
                return toss_PreparingForBreeding;
            }
        }
        m_Counter1 = m_EggNumber; // this is needed in case we adjusted the egg number (m_counter is used to count down the number of days of laying.
    }
#endif
    // This code is a special test for egg shell thickness effects - it can be linked to the pesticide effect above, or assumed to be 
    // a general effect
    if ((cfg_skylark_pesticide_globaleggshellreduction.value() > 0.0) && (m_OurLandscape->SupplyYearNumber()>9))
    {
/*      // This code assumes egg independence
        for (int e = 0; e < m_EggNumber; e++)
        {
            if (g_rand_uni() <= cfg_skylark_pesticide_eggshellreduction.value()) m_Counter1--;
        }
        m_EggNumber = m_Counter1;
*/
        // this code assumes clutch effects of thin egg shells
        if (g_rand_uni() <= cfg_skylark_pesticide_globaleggshellreduction.value()) m_EggNumber = 0;
        if (m_EggNumber<1)  {
            m_BreedingAttempts++;
            return toss_PreparingForBreeding;
        }
 
    }
 
    // The line below counts breeding attempts as at least one egg
    m_BreedingAttempts++;
    skClutch_struct * cs;
    cs = new skClutch_struct;
    cs->L = m_OurLandscape;
    cs->Mum = this;
    cs->No = 0;
    cs->Terrs = m_OurTerritories;
#ifdef FOR_DEMONSTRATION
    cs->x = m_Location_x + 3;
    cs->y = m_Location_y + 3;
#else
    cs->x = m_Location_x;
    cs->y = m_Location_y;
#endif
    cs->bx = m_Location_x;
    cs->by = m_Location_y;
    // This sets the veg type for ever for the life of this nest and any eggs it contains
    cs->mh = m_OurLandscape->SupplyVegType( m_Location_x, m_Location_y );
    if ( cs->x >= m_OurPopulationManager->SupplySimW() ) cs->x -= m_OurPopulationManager->SupplySimW();
    if ( cs->y >= m_OurPopulationManager->SupplySimH() ) cs->y -= m_OurPopulationManager->SupplySimH();
    m_OurPopulationManager->CreateObjects( 0, this, NULL, cs, 1 );
    delete cs;
  }
  // Put an egg in the clutch
  MyClutch->AddEgg();
  if ( --m_Counter1 == 0 ) {
    // All eggs must be laid
    m_Counter1 = 18; // This will count how many day spent incubating
    MyClutch->StartDeveloping();
    return toss_Incubating; //TransferToState(Incubation);
  }
  return toss_Laying;
}

References Skylark_Clutch::AddEgg(), Skylark_struct::bx, Skylark_struct::by, CalculateEggNumber(), cfg_skylark_pesticide_eggshellreduction, cfg_skylark_pesticide_eggshellreduction_perclutch, cfg_skylark_pesticide_globaleggshellreduction, Skylark_Population_Manager::CreateObjects(), g_msg, g_rand_uni, Skylark_struct::L, m_BreedingAttempts, m_Counter1, m_EggNumber, TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, Skylark_Adult::m_pesticide_affected, Skylark_struct::mh, skClutch_struct::Mum, MyClutch, MyMate, skClutch_struct::No, Skylark_Clutch::StartDeveloping(), Landscape::SupplyDayInYear(), Landscape::SupplyPesticideType(), Population_Manager::SupplySimH(), Population_Manager::SupplySimW(), Landscape::SupplyVegType(), Landscape::SupplyYearNumber(), Skylark_struct::Terrs, toss_Incubating, toss_Laying, toss_PreparingForBreeding, ttop_eggshellthinning, ttop_ReproductiveEffects, CfgFloat::value(), CfgBool::value(), MapErrorMsg::Warn(), WARN_BUG, Skylark_struct::x, and Skylark_struct::y.

Referenced by Step().

st_MakingNest()

TTypesOfSkState Skylark_Female::st_MakingNest ( )

protected

Tests for the necessary territory quality, if OK finds a nest location and builds the nest. Nest attempts are assumed to be breeding attempts.

{
#ifdef __PESTICIDE_RA_ADULT
    // If pesticide affected then breeding is delayed
    if (m_pesticide_affected > -1)
    {
        if (m_OurLandscape->SupplyDayInYear() - m_pesticide_affected < 10)
        {
            NestLoc = false;
            return toss_PreparingForBreeding;
        }
    }
#endif
 
    if (MyMate == NULL) {
        g_msg->Warn(WARN_BUG, "Skylark_Female::st_MakingNest(): No mate!", "");
        exit(1);
    }
    int today = m_OurLandscape->SupplyDayInYear();
    if (!NestLoc) {
        // First make a test whether territory is still OK
        double qual = MyMate->Supply_TerritoryQual();
        if (qual < m_MinFemaleAcceptScore) {
            // May need to give up territory or might be because the crop has not
            // started growing in which case she will wait until May
            if (today >= (June)) {
                return toss_GivingUpTerritory; // GiveUpTerritory
            }
            return toss_MakingNest;
        }
 
        // Everything OK so find a nest location
        bool valid = MyMate->SupplyNestValid();
        if (valid) {
            APoint p = MyMate->SupplyNestLoc();
            m_Location_x = p.m_x;
            m_Location_y = p.m_y;
            // Must tell the male
            if (MyMate)
                MyMate->OnNestLocation(p.m_x, p.m_y);
        }
        else {
            //           m_OurPopulationManager->WriteToTestFile(-1,-1);
            if (today >= (May + 14)) {
                return toss_GivingUpTerritory; // GiveUpTerritory
            }
            else
                return toss_MakingNest;
        }
        // The line below counts breeding attempts as nest building
        // the alternative is to count this from one egg laid in St_Laying()
        if (m_BreedingSuccess == -1) m_BreedingSuccess = 0; //Signal breeding was possible
        //m_BreedingAttempts++;
    }
    // Nest location must exist
    if (m_Counter1-- > 0) return toss_MakingNest; else
    {
        m_Counter1 = -1; // Code for deciding many days before laying starts
        return toss_Laying; //TransferToState Laying;
    }
}

References g_msg, June, m_BreedingSuccess, m_Counter1, TAnimal::m_Location_x, TAnimal::m_Location_y, m_MinFemaleAcceptScore, TAnimal::m_OurLandscape, Skylark_Adult::m_pesticide_affected, APoint::m_x, APoint::m_y, May, MyMate, NestLoc, Skylark_Male::OnNestLocation(), Skylark_Male::Supply_TerritoryQual(), Landscape::SupplyDayInYear(), Skylark_Male::SupplyNestLoc(), Skylark_Male::SupplyNestValid(), toss_GivingUpTerritory, toss_Laying, toss_MakingNest, toss_PreparingForBreeding, MapErrorMsg::Warn(), and WARN_BUG.

Referenced by Step().

st_PreparingForBreeding()

int Skylark_Female::st_PreparingForBreeding ( )

protected

Builds up resources whilst waiting for good enough weather to begin nest building. Transitions to MakingNest or GiveUpTerritory (if too late in the season).

{
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // Timing: Called once per day
  // EggCounter was set to Zero on leaving building up resources
  // Egg counter is the refraction period for producing the
  // eggs - nesbuilding time
  long today = m_OurLandscape->SupplyDayInYear();
  if ( today > g_stopdate ) return 2; // too late give up
  Resources += RemoveEM( GetFood( m_OurLandscape->SupplyDaylength() ) );
  if ( EggCounter++ > 5 ) {
    //    if ( ( Resources < Breed_Res_Thresh2 ) || ( m_OurLandscape->SupplySnowcover() ) == true ) return 0; // snow or not enough resources
    if ( m_OurLandscape->SupplySnowcover() == true ) return 0; // snow
    // Check that the temp is above 5 for the last three days
    today = m_OurLandscape->SupplyGlobalDate();
    double t = m_OurLandscape->SupplyTemp( today );
    if ( t < 5.0 ) return 0; // too cold
    t = m_OurLandscape->SupplyTemp( today - 1 );
    if ( t < 5.0 ) return 0; // too cold
    t = m_OurLandscape->SupplyTemp( today - 2 );
    if ( t < 5.0 ) return 0; // too cold
    // Everything is OK so build
    // takes one day less to build nest on first attempt (3 rather than 4)
    if ( m_BreedingAttempts > 0 ) m_Counter1 = 4; else {
      m_Counter1 = 3;
    }
    return 1; // TransferToState(MakeNest)
  }
  return 0;
}

References EggCounter, g_stopdate, GetFood(), m_BreedingAttempts, m_Counter1, TAnimal::m_OurLandscape, Skylark_Adult::RemoveEM(), Resources, Landscape::SupplyDayInYear(), Landscape::SupplyDaylength(), Landscape::SupplyGlobalDate(), Landscape::SupplySnowcover(), and Landscape::SupplyTemp().

Referenced by Step().

st_StartingNewBrood()

int Skylark_Female::st_StartingNewBrood ( )

protected

Any current nests or clutches are removed. The female assesses the habitat quality of the territory. If still suitable (i.e. above MTQ) she will make a transition to Make Nest, otherwise she will go to Give Up Territory.

{
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  NestLoc = false;
  if ( MyClutch ) {
    MyClutch->OnMumGone();
    MyClutch = NULL;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1009 );
#endif
  }
  double qual = MyMate->Supply_TerritoryQual();
  if ( qual < m_MinFemaleAcceptScore ) {
    return 2; // transferToState(GiveUpTerritory)
  }
  if ( ( m_BreedingAttempts < 4 ) && ( m_OurLandscape->SupplyDayInYear() < g_stopdate  ) ) { // Was July-4
    if ( m_BreedingAttempts > 0 ) m_Counter1 = 4; else
      m_Counter1 = 3;
    m_toowet = 0;
    return 1; // TransferToState(MakeNest)
  } else {
    st_StoppingBreeding();
    return 3; // Transfer to state flocking
  }
}

References g_stopdate, m_BreedingAttempts, m_Counter1, m_MinFemaleAcceptScore, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, m_toowet, MyClutch, MyMate, NestLoc, Skylark_Clutch::OnMumGone(), st_StoppingBreeding(), Skylark_Male::Supply_TerritoryQual(), Landscape::SupplyDayInYear(), and Skylark_Population_Manager::WriteSKPOM1().

Referenced by Step().

st_StoppingBreeding()

int Skylark_Female::st_StoppingBreeding ( )

protected

Called when the female stops breeding for the year. Removes the pair bond and tell the male she is leaving. She deregisters her territory ownership and if there has been no breeding success then she forgets the male.

                                        {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( MyClutch ) {
    MyClutch->OnMumGone();
    MyClutch = NULL;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1010 );
#endif
  }
  // No longer paired
  Paired = false;
  // Tell the male you are leaving
  MyMate->OnMateLeaving();
  // if no breeding success then forget him
  if ( !BSuccess )
    MyMate = NULL;
  // de-register the territory ownership
  m_OurTerritories->RemoveFemale( MyTerritory.ref );
  MyTerritory.ref = -1; // No territory
  // TransferToState(Flocking)
  return 3;
}

References Skylark_Adult::BSuccess, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, MyClutch, MyMate, Skylark_Adult::MyTerritory, Skylark_Male::OnMateLeaving(), Skylark_Clutch::OnMumGone(), Skylark_Adult::Paired, skTerritory_struct::ref, SkTerritories::RemoveFemale(), Landscape::SupplyDayInYear(), and Skylark_Population_Manager::WriteSKPOM1().

Referenced by st_StartingNewBrood(), and Step().

st_TempLeavingArea()

int Skylark_Female::st_TempLeavingArea ( )

protected

Waits for one week of weather not classified as bad by Skylark_Adult::GetBadWeather

                                       {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // Timing - called once per day
    if ( !GetBadWeather() ) GoodWeather++;
    else GoodWeather = 0;
    if ( GoodWeather >= 7 ) // Week of not terrible weather
    {
        return 1; // comeback to the area
    }
    return 0; // return value of 0 do nothing, 1 go to Arrival
}

References Skylark_Adult::GetBadWeather(), and Skylark_Adult::GoodWeather.

Referenced by Step().

Step()

void Skylark_Female::Step ( void  )

virtual

Step behaviour - must be implemented in descendent classes.

Reimplemented from TAnimal.

                          {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( m_StepDone || m_CurrentSkState == toss_Destroy ) return;
#ifdef __CJTDebug_5
  if ( MyClutch ) {
    if ( MyClutch->Mother != this ) {
      g_land->Warn( "Skylark_Female::Step: DeBug5 ", NULL ); exit( 1 );
    }
  }
#endif
  switch ( m_CurrentSkState ) {
    case toss_Initiation: // Initial
      m_CurrentSkState = toss_FFlocking;
    break;
    case toss_FFlocking: // Flocking
      switch ( st_Flocking() ) {
        case 1:
          // use 0,0 as a default location
          m_Location_x = 0;
          m_Location_y = 0;
          m_CurrentSkState = toss_FEmigrating; // -> Emigration
        break;
      }
      m_StepDone = true;
    break;
    case toss_FFloating: // Floating
      m_StepDone = true;
    break;
    case toss_FArriving: // Arriving - instant
      if ( st_Arriving() ) m_CurrentSkState = toss_FFindingTerritory; // -> find terr.
      else {
          m_CurrentSkState = toss_FTempLeavingArea;
      }
      m_StepDone = true;
    break;
    case toss_FImmigrating: // Immigration - instant
      if ( st_Immigrating() ) m_CurrentSkState = toss_FArriving; // -> arrival
      else {
#ifdef TEST_ISSUE_DEATH_WARRANT
        printf( "Skylark_Female::Step() : st_Immigrating() : %d\n", ( int )g_date->Date() );
#endif
        m_CurrentSkState = toss_FDying; // -> die
      }
    break;
    case toss_FEmigrating: // Emigration
      if ( st_Emigrating() == 1 ) m_CurrentSkState = toss_FImmigrating; // -> immigr.
      m_StepDone = true;
    break;
    case toss_FTempLeavingArea: // temp.leave.area
      if ( st_TempLeavingArea() ) m_CurrentSkState = toss_FArriving; // -> arrival
      m_StepDone = true;
    break;
    case toss_FFindingTerritory: // FindingTerritory
      switch ( st_Finding_Territory() ) {
        case 1:
          m_CurrentSkState = toss_BuildingUpResources; // -> building res.
#ifdef __CJTDebug_5
          if ( !Paired ) {
            g_land->Warn( "Skylark_Female::Step: !Paired ", NULL ); exit( 1 );
          }
#endif
        break;
        case 2:
          // Should never be paired here
          m_CurrentSkState = toss_FFloating; // -> floating
        break;
        case 3:
            m_CurrentSkState = toss_FTempLeavingArea;
            break;
      }
      m_StepDone = true; // will now go one to EndStep
    break;
    case toss_BuildingUpResources: // Building Resources
#ifdef __CJTDebug_5
        if ( !Paired ) {
        g_land->Warn( "Skylark_Female::Step: !Paired ", NULL ); exit( 1 );
      }
#endif
      switch ( st_BuildingUpResources() ) {
        case 1:
          m_CurrentSkState = toss_PreparingForBreeding; // -> prepare for breed.
        break;
        case 2:
          //           m_OurPopulationManager->WriteToTestFile(-2,-1);
          m_CurrentSkState = toss_GivingUpTerritory; // -> give up territory
        break;
      }
      m_StepDone = true;
    break;
    case toss_MakingNest: // Making nest
        m_CurrentSkState = st_MakingNest();
        m_StepDone = true; // will now go one to EndStep
    break;
    case toss_PreparingForBreeding: // PreparingForBreeding
#ifdef __CJTDebug_5
      if ( !Paired ) {
        g_land->Warn( "Skylark_Female::Step: !Paired ", NULL ); exit( 1 );
      }
#endif
      switch ( st_PreparingForBreeding() ) {
        case 0: // Do nothing
        break;
        case 1:
          m_CurrentSkState = toss_MakingNest; // -> make nest
          NestLoc = false; // no nest location yet
        break;
        case 2: // Too late -> give up for this year
          m_CurrentSkState = toss_GivingUpTerritory;
        break;
      }
      m_StepDone = true; // will now go one to EndStep
    break;
    case toss_Laying: // Laying
        m_CurrentSkState = st_Laying();
        if (m_CurrentSkState == toss_Incubating) m_toowet = 0;
        m_StepDone = true;
        break;
    case toss_StartingNewBrood: // StartingNewBrood
      switch ( st_StartingNewBrood() ) {
        case 1:
          m_CurrentSkState = toss_MakingNest; // -> make nest
        break;
        case 2:
          //           m_OurPopulationManager->WriteToTestFile(-3,-1);
          m_CurrentSkState = toss_GivingUpTerritory; // -> give up terr.
        break;
        case 3:
          m_CurrentSkState = toss_FFlocking; // -> flocking
        break;
      }
      m_StepDone = true; // will now go one to EndStep
    break;
    case toss_EggHatching: // EggHatching - happens after the young hatch at 1 min to midnight
      if ( st_EggHatching() ) m_CurrentSkState = toss_FCaringForYoung; // -> care for young
      m_StepDone = true;
    break;
    case toss_Incubating: // Incubation
      switch ( st_Incubating() ) {
        case 1: {
            g_land->Warn( "Skylark_Female::Step: EggHatching ", NULL ); exit( 1 );
          }
          //m_CurrentSkState=35; // -> egg hatch
        break;
        case 2:
          g_land->Warn( "Skylark_Female::Step: Illegal Return Value ", NULL );
          exit( 1 );
        case 3:
          m_CurrentSkState = toss_StartingNewBrood; // -> start new brood
          MyClutch->OnMumGone();
          MyClutch = NULL;
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1004 );
#endif
        break;
      }
      m_StepDone = true; // will now go one to EndStep
    break;
    case toss_StoppingBreeding: // StopBreed. - instant
      if ( st_StoppingBreeding() ) {
        m_CurrentSkState = toss_FFlocking; // -> flocking
      }
    break;
    case toss_FDying: // Dying
      st_Dying();
      m_StepDone = true;
    break;
    case toss_GivingUpTerritory: // giving up terr. - one day
      if ( st_GivingUpTerritory() == 1 ) m_CurrentSkState = toss_FFloating; // -> floating
      m_StepDone = true;
    break;
    default:
      string st = m_OurPopulationManager->SupplyStateNames( ( int )m_CurrentSkState );
      g_land->Warn( "Skylark_Female::Step: Unknown State", st.c_str() );
      exit( 1 );
  }
}

References Calendar::Date(), g_date, g_land, Skylark_Base::m_CurrentSkState, TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, TALMaSSObject::m_StepDone, m_toowet, Skylark_Clutch::Mother, MyClutch, NestLoc, Skylark_Clutch::OnMumGone(), Skylark_Adult::Paired, st_Arriving(), st_BuildingUpResources(), st_Dying(), st_EggHatching(), st_Emigrating(), st_Finding_Territory(), st_Flocking(), st_GivingUpTerritory(), st_Immigrating(), st_Incubating(), st_Laying(), st_MakingNest(), st_PreparingForBreeding(), st_StartingNewBrood(), st_StoppingBreeding(), st_TempLeavingArea(), Landscape::SupplyDayInYear(), Population_Manager::SupplyStateNames(), toss_BuildingUpResources, toss_Destroy, toss_EggHatching, toss_FArriving, toss_FCaringForYoung, toss_FDying, toss_FEmigrating, toss_FFindingTerritory, toss_FFloating, toss_FFlocking, toss_FImmigrating, toss_FTempLeavingArea, toss_GivingUpTerritory, toss_Incubating, toss_Initiation, toss_Laying, toss_MakingNest, toss_PreparingForBreeding, toss_StartingNewBrood, toss_StoppingBreeding, Landscape::Warn(), and Skylark_Population_Manager::WriteSKPOM1().

Supply_BreedingAttempts()

int Skylark_Female::Supply_BreedingAttempts

(

)

                                            {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  return m_BreedingAttempts;
}

References m_BreedingAttempts.

Referenced by Skylark_Population_Manager::TheBreedingSuccessProbe().

Supply_BreedingSuccess()

int Skylark_Female::Supply_BreedingSuccess

(

)

                                           {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  return m_BreedingSuccess;
}

References m_BreedingSuccess.

Referenced by Skylark_Population_Manager::TheBreedingSuccessProbe().

Supply_NestTime()

int Skylark_Female::Supply_NestTime ( )

inline

  {
    return m_NestTime;
  }

Referenced by Skylark_Clutch::st_Developing().

SupplyMyClutch()

Skylark_Clutch* Skylark_Female::SupplyMyClutch ( )

inline

  {
    return MyClutch;
  }

Referenced by Skylark_Clutch::Step().

Member Data Documentation

EggCounter

int Skylark_Female::EggCounter

protected

Referenced by st_BuildingUpResources(), st_GivingUpTerritory(), and st_PreparingForBreeding().

m_BreedingAttempts

int Skylark_Female::m_BreedingAttempts

protected

Referenced by CalculateEggNumber(), ReInit(), Skylark_Female(), st_CaringForYoung(), st_Immigrating(), st_Laying(), st_PreparingForBreeding(), st_StartingNewBrood(), and Supply_BreedingAttempts().

m_BreedingSuccess

int Skylark_Female::m_BreedingSuccess

protected

Referenced by ResetBreedingSuccess(), st_MakingNest(), and Supply_BreedingSuccess().

m_Counter1

int Skylark_Female::m_Counter1

protected

Referenced by OnBroodDeath(), OnClutchDeath(), st_Incubating(), st_Laying(), st_MakingNest(), st_PreparingForBreeding(), and st_StartingNewBrood().

m_EggNumber

int Skylark_Female::m_EggNumber

protected

Referenced by st_Laying().

m_MinFemaleAcceptScore

double Skylark_Female::m_MinFemaleAcceptScore

protected

Referenced by BeginStep(), ReInit(), Skylark_Female(), st_BuildingUpResources(), st_Finding_Territory(), st_Immigrating(), st_MakingNest(), and st_StartingNewBrood().

m_NestTime

int Skylark_Female::m_NestTime

protected

Referenced by FeedYoung(), and st_Incubating().

m_pesticide_sprayed_die

bool Skylark_Female::m_pesticide_sprayed_die

protected

m_toowet

int Skylark_Female::m_toowet

protected

Referenced by st_EggHatching(), st_Incubating(), st_StartingNewBrood(), and Step().

MyClutch

Skylark_Clutch* Skylark_Female::MyClutch

protected

Referenced by OnBroodDeath(), OnClutchDeath(), OnEggsHatch(), OnMateDying(), OnMateHomeless(), ReInit(), Skylark_Female(), st_Dying(), st_GivingUpTerritory(), st_Immigrating(), st_Laying(), st_StartingNewBrood(), st_StoppingBreeding(), and Step().

MyMate

Skylark_Male* Skylark_Female::MyMate

Referenced by CalcFoodTime(), Skylark_Population_Manager::Catastrophe(), EstablishTerritory(), FeedYoung(), GetFood(), OnEggsHatch(), OnMaleNeverComesBack(), OnMateDying(), OnMateHomeless(), ReInit(), Skylark_Female(), st_BuildingUpResources(), st_CaringForYoung(), st_Dying(), Skylark_Male::st_Dying(), st_Finding_Territory(), st_GivingUpTerritory(), Skylark_Clutch::st_Hatching(), st_Immigrating(), st_Laying(), st_MakingNest(), st_StartingNewBrood(), and st_StoppingBreeding().

NestLoc

bool Skylark_Female::NestLoc

protected

Referenced by st_CaringForYoung(), st_GivingUpTerritory(), st_MakingNest(), st_StartingNewBrood(), and Step().

Resources

double Skylark_Female::Resources

protected

Referenced by EstablishTerritory(), and st_PreparingForBreeding().

---

The documentation for this class was generated from the following files:

• /builds/a1mass/almass_stable_oddox/Skylark/skylarks_all.h
• /builds/a1mass/almass_stable_oddox/Skylark/skylarks_all.cpp